unit UnitDialogFrame;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, UnitBaseFrame;

type
  TFrameDialogClass = class of TFrameDialog;

  TFrameDialog = class(TFrameBase)
  private
    { Private declarations }
  protected
    function GetButtons: TMsgDlgButtons; virtual;
    function GetCheckCaption: string; virtual;
  public
    function Finish(AResult: TModalResult): Boolean; virtual;
    property Buttons: TMsgDlgButtons read GetButtons;
    property CheckCaption: string read GetCheckCaption;
  end;

var
  FrameDialog: TFrameDialog;

implementation

{$R *.dfm}

{ TFrameDialog }

function TFrameDialog.Finish(AResult: TModalResult): Boolean;
begin
  Result := True;
end;

function TFrameDialog.GetButtons: TMsgDlgButtons;
begin
  Result := [mbOK];
end;

function TFrameDialog.GetCheckCaption: string;
begin
  Result := '';
end;

end.
